Функция VBA Split используется для разделения строки символов в соответствии с разделителем для получения массива значений.
Split(текст, разделитель)
Или
Split(текст, разделитель, предел)
Разделение названия сайта "www.moonexcel.com.ua" с разделителем "." чтобы получить 4 подстроки в массиве:
Sub SplitExample1()
text = "www.moonexcel.com.ua"
array = Split(text, ".")
MsgBox array(0) 'Возвращает: www
MsgBox array(1) 'Возвращает: moonexcel
MsgBox array(2) 'Возвращает: com
MsgBox array(3) 'Возвращает: ua
End Sub
При необходимости вы можете ограничить количество элементов в массиве:
Sub SplitExample2()
text = "www.moonexcel.com.ua"
array = Split(text, ".", 2)
MsgBox array(0) 'Возвращает: www
MsgBox array(1) 'Возвращает: moonexcel.com.ua
End Sub
Если вам нужно только получить одну подстроку (в этом примере средняя подстрока "moonexcel"), вы можете непосредственно указать элемент массива для его получения:
Sub SplitExample3()
text = "www.moonexcel.com.ua"
middle = Split(text, ".")(1)
MsgBox middle 'Возвращает: moonexcel
End Sub